home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / CUGUK / C005.ZIP / AMORTIZ / AMORTIZ2.C next >
Text File  |  1990-01-19  |  1KB  |  46 lines
  1. /********************************************************************
  2.  * C Users Group (U.K) C Source Code Library File CUGLIB.005        *
  3.  * Inquiries to: M. Houston, 36 Whetstone Clo. Farquhar Rd.         *
  4.  * Edgbaston, Birmingham B15 2QN ENGLAND                *
  5.  ********************************************************************
  6.  * File name: amortiz2.c
  7.  * Program name: 
  8.  * Source of file: The Public Domain Software Library.
  9.  * Purpose: interest rate calculations.
  10.  * Changes: <who what when & why major changes have been made>      
  11.  ********************************************************************/
  12.  
  13. /**        determine payment if balance and rate and term is known
  14.  
  15.  
  16. *amount = starting balance
  17. *balance = remaining balance
  18. *rate = interest rate per period
  19. *rate1 = interest rate per year
  20. *payment = monthly payment
  21. *principal = payment to principle
  22. *interest = payment of interest per period
  23. *number = number of payments
  24.   
  25. *   payment=Balance/((1-(1+rate)^-Number)/rate)
  26. */
  27.  
  28.     float amount;    /*  declare external veriables   */
  29.     float rate;
  30.     float payment;
  31.     float rate1;
  32.  
  33. #include "math.h"    /*    include declaration for pow()    */
  34.     pymt()    
  35. {
  36.     float number;    
  37.  
  38.     printf("How many payments ? ");
  39.     scanf("%f",&number);
  40.  
  41.  
  42.     payment = amount / ((1 - pow((1. + rate),-number))/rate);
  43.  
  44.  
  45. }
  46.